home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / EDITORS / AMIMACRO.ZIP;1 / SAVETOB.SMM < prev    next >
Encoding:
INI File  |  1993-04-08  |  1.3 KB  |  123 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Citizen GSX-140
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Saves the current document to the B:\ drive under the same name and description.
  19.     
  20.     
  21.     
  22.     
  23.     734281985
  24.     8
  25.     734072955
  26.     52
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     1
  57.     16 0 12 1025 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58. [edoc]
  59. <:#216,10800>FUNCTION SavetoB()
  60.  
  61. <:#216,10800>onerror endit
  62.  
  63. <:#216,10800>oncancel endit
  64.  
  65. <:#216,10800>Hourglass(1)
  66.  
  67. <:#216,10800>IgnoreKeyboard(1)
  68.  
  69. <:#216,10800>fn=GetOpenFileName$()
  70.  
  71. <:#216,10800>dn=GetDocInfo$(1)
  72.  
  73. db=strcat$("a:\",dn)
  74.  
  75. <:#216,10800>Save()
  76.  
  77. StatusBarMsg("Copying {fn} to A:\")
  78.  
  79. <:#216,10800>DOSCopyFile(fn,db)
  80.  
  81. <:#216,10800>Endit:
  82.  
  83. <:#216,10800>StatusBarMsg("")
  84.  
  85. <:#216,10800>Hourglass(0)
  86.  
  87. <:#216,10800>IgnoreKeyboard(0)
  88.  
  89. <:#216,10800>END FUNCTION
  90.  
  91. >
  92.  
  93. [Embedded]
  94. 00001047
  95. >
  96. [macsum] 1
  97. SavetoB 0 0 4 0
  98. [macse]
  99. 14 SavetoB
  100. 20 00000172
  101. 19 00000172
  102. 0 296 1
  103. 0 32 1
  104. 0 267
  105. 13
  106. 8 1
  107. 0 279 1
  108. 13
  109. 8 2
  110. 0 16 "a:\" "{2}"
  111. 13
  112. 8 3
  113. 2 103 1
  114. 0 789 "Copying {1} to A:\"
  115. 0 803 "{1}" "{3}"
  116. 0 789 ""
  117. 0 296 0
  118. 0 32 0
  119. 6 0
  120. 15
  121. 9
  122. 00001072
  123.